package body TimeCount_Package is

	protected body TimeCount is
		
		-- imposta il proprietario del pallone 
		procedure Increment is
			-- when Timing < 450 is
		begin
            if (Timing < 450) then
                Timing := Timing + 1;
            end if;
		end Increment;
				
		-- ritorna il timing di gioco
		function GetTime return Integer is
		begin
			return Timing;
		end GetTime;

		-- ritorna il tempo totale del match
		function GetTotalTime return Integer is
		begin
			return TotalTime;
		end GetTotalTime;
				
	end TimeCount;

end TimeCount_Package;